home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Online / hsc / source / test / assign.hsc < prev    next >
Encoding:
Text File  |  1997-09-27  |  978 b   |  46 lines
  1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  2. <HTML><HEAD><TITLE>check conditional assignment</TITLE></HEAD><BODY>
  3.  
  4. <$macro CheckCA sepp:string hugo:string>
  5.  
  6. <$if cond=(set sepp)>SEPP=<(sepp)></$if>
  7. <$if cond=(set hugo)>HUGO=<(hugo)></$if>
  8.  
  9. </$macro>
  10.  
  11. <$define resi:string="resi">
  12. <$define hinz:string="hinz">
  13. <$define kunz:string>
  14.  
  15. RESI=<(resi)>
  16. HINZ=<(HINZ)>
  17.  
  18. <CheckCA sepp="no hugo">
  19. <CheckCA sepp="sepp" hugo="hugo">
  20. <CheckCA sepp?=resi hugo?=resi>
  21. <CheckCA sepp?=hinz hugo?=kunz>
  22.  
  23. <$let resi=(hinz)>
  24. RESI=<(resi)>
  25. <$let resi?=resi>
  26. RESI=<(resi)>
  27.  
  28. <$let resi>
  29. <$if cond=(set resi)>RESI set<$else>RESI unset</$if>
  30. <$let resi?=resi>
  31. <$if cond=(set resi)>RESI set<$else>RESI unset</$if>
  32.  
  33.  
  34. <$let resi?=hinz>
  35. RESI=<(resi)>
  36. <$let resi?=kunz><* kunz does not exist *>
  37. <$if cond=(set resi)>RESI=<(resi)><$else>RESI unset</$if>
  38.  
  39.  
  40. <* compute assignment *>
  41. <$let resi="resi again">
  42. <$let resi?=("hi"+"nz")>
  43. <$if cond=(set resi)>RESI=<(resi)><$else>RESI unset</$if>
  44.  
  45. </BODY></HTML>
  46.